Accessing Active directory from Domino server

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: Accessing Active directory from Domino server

Feedback Type: Problem

Product Area: Administration

Technical Area: Application Development

Platform: Windows

Release: 8.5.3

Reproducible: -Reproducibility-

Hi,

I am trying to make some changes to AD from my Domino server. When I run the code from my Notes client (my windows account has domain admin access) the code will run successfully. When I run it on a schedule no the Domino server, the code fails with a "Active Directory: General access denied" error.
It appears that th credentials provided are not being used. No one is logged onto my Domino server and Domino is running as a service. What do I need to alter to get the Domino server to bind correctly with the credentials supplied? Many thanks....

Const strUser = "domain\adminid"
Const strPassword = "adminpass"
Const StrServer = "DOMController1"

Set objNS = GetObject("LDAP:")
Set objRootDSE = objNS.OpenDSObject("LDAP://" & strServer & "/dc=tree1,dc=tree2", strUser, strPassword, 1)

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Properties("User ID") = strUser
objConnection.Properties("Password") = strPassword
objConnection.Properties("Encrypt Password") = True

'locate the account and make changes

UserObject.SetInfo <- error occurs here "Active Directory: General access denied error"

Feedback number WEBB924DCN created by ~Joseph Quethipilyings on 11/16/2012

Status: Open
Comments: